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eTITL ; be vee} ~- FAL MAINLINE 
IDENT ‘V04-000' 


I 
-1D ; Also change FALSGT_VERSION!!! 


Oooo 


s ebveneeseeenscoeeenouadaerononenbanowencnnenenenneenesesennseoessonesessoees 


COPYRIGHT e 1978, 1980, 1982, 1984 BY 
ITAL EQUIPMENT _GORPORATION, MAYNARD, MASSACHUSETTS. 
RIGHTS. RESERVE 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 
IN eee E WITH THE TERMS OF SUCH LICENSE AND WITH THE 
SION 0 tal Res COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH 

S_ THEREOF MAY _NOT PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORATI Ok NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS a} 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


3 PARRAAASLASASAASLARARALARRELERASALALESESASEEE SESE LE REL ERE SERRE RSE RRR ERR AAAS SS 

$ "Faatitey: FAL (DECnet File Access Listener) 

; Abstract: 

is the DECnet-VAX ffte access server program, known as DECnet 

BD ect type 17 nqec yaets - Its purpose is to provide access to files 
and unit record devices on a VMS node on behalf of processes executing 
on any node of the DECnet stemunlent ens network. FAL uses the Data 
Access Protocol (DAP) to communicate with the roauset' ng process and it 
accesses the specified file (or device) through RMS calls. 


; Environment: 


t runs in user mode and requires NETMBX and TMPMBX privilege. 
; Author: James A. Krycka, Creation Date: 16-JUN-1977 
; Modified By: 


VO3-016 JAK0146 JA Keyeke 31-AUG-1984 
Update FALSGT_VERSION for FAL logging. 


vO3-015 JAKO0145 J A Kryck 12-APR~1984 
Track changes re, DAP aessege building algorithm. 


V03-014 JAKO140 03-APR-1984 . 
Remove buffered 0 6 bytert Limit quota (BYTLM) as the basis for 
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SOOCSOCCOOCOOCOCOCOSCOCOOCOCOSOC OOOO SSS SOOSSOSOSOOSCOOCOOOOOOCOOOOOSOOOOOOOOO 
NOU EWR @ OC OOO NO UE WIN @ O OD NAME WIN @ O OD NAU EWN @ OOWONAUS WN" OOODNOULS wr 


SOSOoSoooooooooooooooooooooooooooooooooooooooooooooooooo 
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: The FAL image executes in the context of a process created by NETACP. 
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determining the largest DAP buffer size that FAL is willing to 
support. 


v03-013 JAKO137 JA 
Continuation of V03-012 to support qualifier options in FAL$LOG 
string to control RMS multi-buffer cache size, DAP buffer size, 
and to alter Configuration message information to aid testing. 
Also, OPae et renea as ce qnevate FALSOUTPUT to obtain user provided 


Krycka 12-MAR-1984 


0 H 
a5 i 
60 ; 
0 g> 
$0 84 : 
3 64 ; 
000 oe 3 
000 66 § output file spec ation. 
B08 of 3 Modifications to reflect macro name changes in FALMACROS.MAR. 
BA08 $2 3 VO3-012 JAKO136 JA crycke 07-MAR-1984 
0 ; Rename CHECK_RMS to SCHECK_STATUS and revise it so that FAL does 
8308 13 not terminate on error during output of FAL logging information. 
BO Le 3 Modifications to reflect changes made to layout of SFALWRKDEF. 
0000 74 ; v03-011 4x08? J A Krycka 11-JAN-1984 
0000 mo 3 VO3-010 JAK0124 J A Krycka 06-SEP-1983 
0000 76 ; v03-009 eee J A Krycka 9-JUL-1983 
0000 3 V03-008 JAKO11 J A Krycka eat aes 
0000 78 ; V03-007 JAKO107 J A Krycka -APR-1983 
0000 79 ; V03-006 JAKO105 J A Krycka 29-APR-1983 
44464 + ; Update FALSGT_VERSION for FAL Logging. 
0000 HE : VO3-005 JAK0104 J A Krycka 06-APR-1983 
0000 83 ; Allocate RMS block 1/0 buffers for use during file transfer 
0000 84 ; mode. 
0000 85 ; 
0000 86 ; V03-004 KRM0086 K Malik 23-Mar-1983 
0000 87 ; Update FALS$GT_VERSION for support of STMLF and STMCR file 
4 Hy 3 formats and definition and setting of DAP$V_GEQ_V70 bit. 
$000 90 ; v03-003 KRM0072 K Malik 23-Nov-1982 
44 4. 3 Change FAL$B_LOGFLG to FALSL_LOGFLG. 
0000 35 3 V03-002 JAKO0101 JA arycks 09-OCT-1982 
0000 94; Deduct extra buffered 1/0 quota before caleulering DAP 
0000 95 ; buffer size to prevent FAL from euceeding its BYTLM quota 
0000 96 ; and thereby causing it to hang. This problem only occurs 
0000 wT 3 if the requestor agrees to use FAL's buffer size and the 
0000 98 ; FAL process has a sufficiently low BYTLM quota. 
0000 99 ; 
0000 100 ;-- 


FALMAIN - FAL MAINLINE 16-SEP-1984 01:45:50 VAX/VMS Macro V04-00 Page FA 
v04-0 DECLARATIONS met Bhi 33 YRAL SRCJPALMAIN. MAR: 1 . 3) v0 
-SBTTL DECLARATIONS 
0000 p «PSECT PALSDATA SHR ,NOEXE,RD,WRT,LONG 
0 H 
: Include Files: 
SDAPCNFDEF ; Define DAP a message 
$F ALWRKDEF Define FAL Work Area symbols 
0 SIODEF Define Q10 function codes 
0 SSSDEF : Define System Service status codes 
ASSUME FALS$Q_FLG EQ 0 
> Own Storage: 
; Text stored as counted ASCII strings: 
FALSGT_VERSION:: 3; FAL version number string used by 
-ASCIC \V04-000\ 3 FALLOGGER--same as module ident " 


30 30 30 2D 34 30 56 po" 


: Storage of status code to report on image exit: 


FALSGL_EXIT: ; Stat 


code 
00000001 “LONG SS$_NORMAL Init Yatize with success code 


; Device name and logical name descriptor blocks with text: 


FALSGQ_LNKNAM: : 


; Device name descriptor block 
SOBLOCK TEXT=<_NETO:> nk 


: for the 

FAL$GQ_SYSNAM: : 3 Logical name descriptor block 
SOBLOCK TEXT=<SYSS$NET> ; for SYSSNET 

FAL$GQ_LOGNAM: 3 Logical cane descriptor block 


SOOOCCOCoCOooooooooooooosoooooooooooooooeoo oo 
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$Q BLOCK TEXT=<F AL$LOG> cr 
FAL$GQ_OUTPUT:: ical name peter tpter block 
$a QBLOCK TEXT=<F ALSOUTPUT> FA $9 TPUT 
FAL$GQ_WILDSPEC:: Bay le name, type. and version 
SOBLOCK TEXT=<<*,+; 3*>> fault) file speci 


a tt ss ts St a Bh a te sn 6 ss a 8 Ss ss 2 se 
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h.. H. 
or FA 
Wild 
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| 
3; Macros 
None 
Equated Symbols: 
ication string 
| 


—————_ 
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v04-000 FALSSTART = MAINLINE -SEP-1984 EET PRALYSRCIPALMAIN. MARS 1 . (3) 
8 -SBTTL FALSSTART = MAINLINE 
0000 -PSECT FALSCODE NOSHR,EXE,RD,NOWRT BYTE 
0 3 ++ 
; Functional Description: 
00 FALSSTART is responsible for the initialization and termination of FAL. 
Bp These activities include: 
00 (1) allocation of the FAL work area and several control blocks within 
00 (2) translation of FAL$LOG, conditional translation of FALSOUTPUT, and 
4 conditional creation of a file for logging requested information 
0 (3) creation of a control/information path to NETACP via NET 
00 (4) translation of SYS$NET and construction of an NCB 
00 (5) completion of the logical Link and optional logging startup data 
+4 (9) allocation of transmit and receive buffers 
(8) terminating the image and exiting to VMS 
Once a logical Link has been established between FAL and its requestor, 


control is passed to FALSSTATE, the state transition table manager, 
which controls the operation of FAL. 


Calling Sequence: 
Normally, FAL is run from SYSSSYSTEM:FAL.COM, a batch procedure that 
is executed when an inbound connect request for object type 17 (decimal) 
is received by this node. 
Input Parameters: 
None 
Implicit Inputs: 
Logical name 'FALS$LOG' 
Logical name 'FALSOUTPUT’ 
Logical name 'SYS$NET' 


| 
| 
| 
| 
posting reads and Seema terrae, centre, to the state table manager 
Output Parameters: 


OOOOCCOCOCSOOOOOOCOoOSooOooOoSooOoOSooO 


None 
Implicit Outputs: 
None 


SOOO COCOCOOCOCoOoOoOoOoOoOOCOSoOoOSoOoOSoOOOOCOOoOSoOSoO 


Completion Codes: 
Standard RMS completion codes 
Side Effects: | 
None 


SOONANE WN OS OD NAME WIN O OOO NA UE WN 0 OONAU EWN 9 OONOAOUE WIN" OWOONIOW 
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v04-000 FALSE TART = MAINLINE -SEP-1 1382 Bri 33 YR AL SRCIPALMAIN MARS 1 . 
0000 3 1 -ENTRY FALSSTART,“M<> ; Entry point from executive 
14 5+ 
0 15 ; Allocate space for the FAL work area (defined by SFALWRKDEF). Within this 
8 18 : work area space is reserved for several other structures. These include the 
Bp i ; DAP, STB, FAB, RAB, NAM, and XAB control blocks. 
00 19 ° 
10 8 00 20 MOVL #<F ALSK_WRKBLN+511/512>,R1 ——— required # pages 
A6é 0 000 $1! BSBW F ALSGETPAGE ; expan program region 
52 00 0008 ¢ MOVL R2,R8 ; Get address of FAL work area 
C8 «o9E Bote MOVAB FALST_DAP(R8),R9 3; Get address of ~ control block 
C8 DE 001 4 MOVAL FAL$L_FAB(R8),R10 ; Get address of FAB 
C8 DE 0015 5 MOVAL FAL$L_RAB(R8),R11 ; Get address of RAB 
68 7C QOIA 226 CLRQ FAL$Q-FLG(R8) ; Initialize FAL work area status flags 
8F 90 O01C 227 MOVB Hyg DFLT_RBK,- : Initialize RMS multi-block cache size 
A8 OO1F 228 FAL$B_RBK_C CACHE (R 3 used only for block mode transfers 
0021 229 : (FALSLOG. may quart ie this value) 
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Hvar +4 
v04-000 


04 A7 


0629 8F 50 
0B 


FFAD' 
04 A8 

03 
0078 


- FAL MAINLINE 19360-1388 B14 $30 here Macro V04-00 Page 
FALSSTART = MAINLINE “SEP-1984 01:17:1 FAL.SRCJFALMAIN.MAR; 1 
1 1 3+ 
1 ¢ ; Translate the logical name FAL$LOG to determine what type of information 
1 ; (if any) is to be logged in the print file. Also, other debugging options 
! ¢ ; and program control opt‘ons may be specified via this mechanism. 
8 ! 8 ; Note that the definition of FALSLOG as a logical name is strictly optional. 
021 3° 
8 1 9 TRANSLATE_FALS$LOG: ; Continuation of mainline 
7E 1 40 MOVAQ FAL$Q_FALLOG(R8) ,R7 3; Get address of descriptor 
3C 0026 241 MOVZWL #FAL$R_FALLOG, (R?) ; Store buffer size 
9E 00 3 4¢ MOVAB  FALST_FALLOG(R8),4(R7) ; Store buffer address 
031 4 $"RNLOG_S- ; Translate ‘FALS$LOG' 
0031 44 LOGNAM=W“*FAL$GQ_LOGNAM- ; Address of logical name descriptor 
0031 45 RSLLEN=(R7)= ; Update size d rectly in descriptor 
0031 46 RSLBUF =(R7) ; Put equivalence string in buffer 
Bi 0046 47 CMPW RO ,#<SSS$_NOTRANG*XFFFF> ; Did logical name translate? 
13 0048 48 EQL 10$ ; Branch if it was not defined 
004D 49 SCHECK_STATUS ; Check status code 
30 0050 50 SBW FALSPARSE_FALSLOG ; Process FAL$LOG options 
95 0053 251 TSTB FAL$B_LOGGING(R8) ; Were any output options selected? 
12 0056 252 BNEQ  TRANSCATE _FALSOUTPUT ; Yes, determine where to log output. 
31 0058 253 108: BRW ASSIGN_CHANNEL 3 No, skip remaining log initialization 


by 
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AINLINE | 
RT = MA FAL.SRCJFALMAIN.MAR; 1 (6) | 
5B 355 i+ | 
8 8 ; Translate the logical name FALSOUTPUT to determine if an explicit print file 
58 57 ; specification has been provided. The logical name translation is performed | 
bpeg 28 ; only if FAL logging options have been requested that generate log information. | 
Boe ey ; Note that the definition of FALSOUTPUT as a logical name is strictly optional. 
0058 262 ° 
0058 8 TRANSLATE_FALSOUTPUT: ; Conditionally translate logical name 
57 O3F8 C8 7E 0058 64 OVAQ FAL$Q_TEMP(R8) ,R7 : Get address of descriptor 
67 OOFF 8F 3C 0060 265 MOVZWL #FALSR_FILESPEC,(R7) _ : Store buffer size 
A? 0400 (8 9E 9063 66 MOVAB FALS$T_FILESPEC(R8) ,4(R7):; Store buffer address 
068 6 LOG_S- ; Translate ‘FALSOUTPUT’ 
0068 68 OGNAM=W*FAL$GQ_OUTPUT=- ; Address of logical name descriptor 
sie +4 RSLLEN=(R7)= ; Update size d reesty in descriptor 
068 0 SLBUF =(R7) ; Put equivalence string in buffer 
0629 8F 50 61 0080 71 CMPW RO, #<SS$_NOTRANG*XFFFF> ; Did logical name translate? 
17 13 «0085 es EQL  _CREATE_PRINT_FILE : Branch if it was not defined 
4H 7 SCHECK_STATUS 3; Check status code 
O3F8 C8 95 OOBA 74 TSTB FAL$Q_TEMP(R8) ; Branch if translation yielded a null 
Of 13. OO8E 75 EQL CREATE_PRINT_FILE ; string 
O3F8 C 90 0090 76 MOVB FAL$Q_TEMP(RB) ,- ; Update primary file specification 
0000' CF 0094 77 W*FALSPRTIFAB+FABSB_FNS ; mame size and string address in 
O3FC C8 DO 0097 278 MOVL FAL$Q_TEMP+4(R8) ,=- ; print file FAB overriding default 
0000 'CF 0098 279 W*FALSPRTFAB+FABSL_FNA ; string of 'SYSSOUTPUT 


D 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 


E 12 


FALMAIN - FAL MAINLINE 16-SEP-1984 01:45:5 AX/VMS Macro V04-00 Page 
v04-0 FALSSTART = MAINLINE mi aets T te 33 LRAL SRCJPALMAIN-MAR: 1 . ‘a 
9E 1 3* 
a3 ¢ ; Create the print file and initialize print buffer descriptors if the display 
4 Z ; bitmask parameter in the equivalence string for FAL$LOG was non-zero. 
44: 5 ; Note: Usually, SYSSOUTPUT will refer to the network log file (NETSERVER.LOG). 
9E $ 3 However, the user may direct logging output to an explicit Log file 
O9E 3 via the logical name FALSOUTPUT; or he may have redefined SYSS$OUTPUT 
O9E 8 ; to point to a file. 
O9E 9 :- 
O9E 90 
O09E 91 CREATE_PRINT_FILE: ; Continuation of mainline 
43 38 SCREATE FAB=W*FALSPRTFAB ; Create the file 
A 9 SCHECK_STATU ; Check completion code 
OOAC 94 SCONNECT RAB=W*F ALSPRTRAB 3 Establish record stream 
0087 95 SCHECK_STATUS ; Check completion code 
QOBA 96 
QOBA 97 ; 
OOBA 98 ; Initialize print buffer descriptors used by both FAL system service calls 
QOBA $30 3; to fill the buffers and subsequent RMS calls to write the buffers. 
OoBA 30) 
51 QOO0'CF 7E OQOBA $08 MOVAQ W*FAL$GQ_PRTBUF1,R1 ; Get address of first descriptor 
81 0100 8F 3C O0BF 03 MOVZWL #FALSK_PRTBUF,(R1)+ : Initialize descriptor of primary 
81 1A00 C8 9E O00C&4 304 MOVAB FAL$T_PRIBUF1(R8),(R1)+ ; (non=AST-Level) print buffer 
81 0100 8F 3¢ 00C9 305 MOVZWL #FALSR_PRTBUF,(R1)+ ; Initialize descriptor of secondary 
81 1800 C8 9E& OOCE 306 MOVAB FAL$T_PRTBUF2(R8),(R1)+ ; (AST-Level) print buffer 
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v04-000 FALSSTART = MAINLINE ety 7 PRE ET FAL.SRCJFALMAIN.MAR; 1 " (8) 
D 3+ | 
D 88 ; Create a sonserery mailbox and assign a channel to it. Then oaghl a channel 
D 10 ; to the pseudo device _NETO and associate the temporary mailbox with this 
. \} 3; channel. 
8b 18 ; Note: Assigning a channel to NETO does not confirm the logical Link--it 
D 14 ; simply creates a control/information path to NETACP in preparation for 
0D 1§ 3 non-transparent network I/0. A Q10 access function must be issued to 
OD 16 3 complete the logical Link. 
ae 
ite 15 ASSIGN_ CHANNEL: 3; Continuation of mainline 
51 O3F8 C8 YE Dd 0 MOVAB FALS$Q_TEMP(R8),R1 ; Get address of scratch area 
61 0040 8F C 00D 1 MOVZWL #FALSR_MBXBUF , (R1) ; Store mailbox buffer size parameter 
04 Al 0080 8F 3¢ 9000 : MOVZWL #FALSK-MBXQUOTA,4(R1) ; Store mailbox buffer quota parameter 
1E AB F QOE PUSHAW FAL$W_ABXC (RBS ; Address to return mailbox channel # 
1C A8 F QOE6 4 PUSHAW FALSW_LNKCHN(R8) ; Address to return device channel # 
04 Al OF QOE9 5 PUSHAL 4(R1) ; Address of mailbox buffer quota 
61 ODF OOEC 6 PUSHAL (R1) ; Address of mailbox buffer size 
OOC'CF /7F OQOEE 7 PUSHAQ W*FAL$GQ_LNKNAM ; Address of device name descriptor 
00000000'GF 05 FB OOF2 328 CALLS #5,G*LIBSASN_WTH_MBX ; Assign a channel to _NETO and | 
OOF9 4 3 associate a temporary mailbox with it 
OOF9 330 SCHECK_SS ; Check status code and exit on failure 
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string is defined by 


+ 
Translate the logical name ‘SYSSNET'. It's equivalence 
CB) which is required to gain 


VMS to be the entire network connect block ( 

non-transparent access to the network. 

The general format of the equivalence string is: 
nodespec::'‘objecttype=taskid/{binary_data}" 


However, the string displayed in the print file will have the binary data 
truncated as shown below: 


nodespec::'‘objecttype=taskid"’ 


=D 
-o 


lly, the oer put into the NCB for a connect accept without userdata 
include only the first two bytes of the binary data past the slash: 


zn 
eee 


nodespec::'‘objecttype=taskid/{two_bytes_of_binary_data}"’ 


TRANS_SYSS$NET: 
MOVAQ FAL$Q_SYSNET(R8) ,R7 
MOVZWL #FALS$R_SYSNET, (R7) 
MOVAB  FALST_SYSNET(R8) ,4(R7) 
STRNLOG_S- 


LOGNAM=W“F AL$GQ_SYSNAM- 

RSLLEN=(R7)= 
RSLBUF =(R7) 

CMPW sa RO, #<SS$_NOTRANG&*XFFFF> 

BEQL 208 

SCHECK_SS 


Continuation of mainline | 

Get address of output descriptor 
Store buffer size 

Store buffer address 

Translate ‘SYS$NET' 

Address of logical name descriptor 
Update size d rectty in descriptor 
Put equivalence string in buffer 

Branch if logical name is not defined 


0098 C8 = 7E 
67 OOFF BF 3C 
1000 C8 =9E 


0629 8F 50 


—-@ 
we 


Check status code and exit on failure 


: Extract the name of the partner node and save it for use by FALSCRC_LNGERR. 


2 


; Make writable copy of descriptor 

; Find the colon 

; Compute the nodename Length 

; Nodename start with an underscore? 


(R7) ,R2 
LOCC #*A/:/,R2,(R3) 
3,R1,R2 
CMPB) s #*A/_/, (R3) 
10$ 


Wo 
wu 
—nn 


ROW 
AO ODNAN EWN $0 OD NAN E WN 0 OD NAME WN OC OONOUS Ur 


63 


w 
pay 
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; No 

; Yes, lower the count 

; and bump pointer past underscore 

; Get address of buffer to put nodename 
; Move the count into the buffer 

; Put the nodename in buffer 


Pe A a a iy A ea Sr ae ny wr 


R 

W*FALSGT_NODENAME , R4 
» (RQ) + 

MOVC3 R2.(R3),(R4) 


54 000° 
64 
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0 : Locate the slash preceeding the binary data and save its address. 


04 87 67 


4 3 : LOCC a calla laa : Find taskid delimiter 
O008'CF 0154 BF 3 
0183 


4 BNEQ ; Branch if slash found 

5 208: MOVZWL #SS$_IVLOGNAM,W*FALSGL_EXIT ; Declare error 3 
RW FALSTERMINATE ; Terminate image execution 

30$: MOVL R1,R2 : Save address of slash 
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: Write to the print file: FAL version number, a ioe stamp, the identity of 
: the requesting process, and the equivalence string for FAL$LOG. 


04 A8& +f TSTB LOG (R8 Branch if FAL logging is disabled 
§ 1 BEQL ET CAL_LINK 
81 4 MOVB R Overlay slash to truncate string 
67 51 O4A ¢ SUBL3 R Update string size in descriptor 
50 0090 C8 E f R8),RO Get address of string descriptor 


: Format the message 
GQ_CALLER=- ; Address of control string 
: wise Address of receive string length 
R ; 


= 
Oo 
< 
> 
© 
oOOn *"SfROT7 


Address of buffer to put string 
FAL version number string address 
Use current date and time 

P4= Address of FAL$LOG string descriptor 
SCHECK_STATUS 


‘ Check status code 
BSBW FALSPRINT_FAO 


FE69" 30 Print message 


19 68 38 €1 


D000 0000 09 NNN NN NNO A AOOAAOOAO 


178 ; #FALSV_PARSE_ERR,(R8),40$;Branch if no parse error was detected 


Address of requestor 4 ay desc 
2 
Format the message 
| 
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6 
; Write an error message if FALSLOG options string was not successfully parsed. 
4 
5 
6 
7 
8 
9 
0 
4 
5 
6 
7 
8 
9 
0 


98 CTRSTR=W*FALS$SGQ_PARSERR=-; Address of control string 

98 OUTLEN=W“*FALSGW_PRTILENI-; Address of receive string Length 
9B OUTBUF=W*FALS$GQ_PRIBUF1 ; Address of buffer to put string 
AE SCHECK_STATUS ; Check status code 

| BSBwW FALSPRINT_FAO ; Print message 

B4 3 

4] ; Write and informational message if DAP messages are to be logged. 

B4 je 

B4 40$: BBC #FALSV_LOG_MSG,(R8),- ; Branch if logging of DAP messages is 
87 COMPLETE_LOGICAL_LINK ; disabled 

B88 $FAO_S- :; Format the message 

B8 CTRSTR=W*FAL$GQ_HEADER- ; Address of control string 

B8 OUTLEN=W*FAL$GW_PRILENI-; Address of receive string length 
B88 3 OUTBUF=W*FAL$GQ_PRIBUF1 ; Address of buffer to put string 
(B ; SCHECK_STATUS : Check status code 

CE BSBW FALSPRINT_FAO ; Print message 
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101 435 ;¢ 
1D1 4 § ; Respond to the connect initiate with a connect accept (without userdata) 
1! ? ; to complete the logical Link. 
101 4 § ; Note: The equivalence string from the translation of SYSSNET will be shortened 
101 440; to remove unwanted userdata two bytes past the slash character so that 
101 441; this modified string can be used as the Network Connect Block (NCB) on 
1D1 re) 3 the Q10 connect accept request!! 
1D1 445 ;- 
1D1 9444 
1D1 445 COMPLETE _LOGICAL_LINK: ; Continuation of mainline 
82 ef 9 1D1 $68 Rove B*A\/\, (R2)4 ; Restore slash to string 
B 104 44 TSTW (R2)+ : Skip over first 2 bytes of binary data 
oS ¢ 9 8106 448 MOVB #*A\''N, (R2) + : Terminate ger tng here to make an NCB 
67 52 O4A C$ 0O1D 449 SUBL3 4(R7),R2, (R7) ; Update string size in NCB descriptor 
O1DE 450 $Q10W_S- ; Issue connect accept to complete Link 
Q1IDE 451 EFN=#F ALSK_XMTEFN- : Event flag number 
O1DE $26 CHAN=FAL$W_LNKCHN(R8)=- ; Channel number 
O1IDE 45 FUNC=#10$_ACCESS!IO$M_ACCESS= ; Function code 
O1DE 454 1OSB=FALSG_XMTIOSB(R8)- ; Address of 1/0 status block 
O1DE 455 P1=0- ; Must be zero 
Q1DE 456 P2=R7 ; Address of NCB descriptor 
O1FD 8 457 SCHECK_SS ; Check status code and exit on failure 
9308 458 
0200 459; 
0200 460 ; Write Link established message to the print file. 
63338 
68 21 4&1 0200 163 BBC #FALSV_LOG STA,(R8),- ; Branch if logging of statistics is 
45 0203 464 ALLOCATE_BOFFERS ; disabled 
0204 465 $GETJPIW_S- 3; Get selected job/process information 
0204 466 TTMLST=W*FALSGETJPI_LSTO; Address of item list 
0219 467 SCHECK_STATUS ; Check status code 
O21C 468 $GETTIA_S- ; Get current date and time 
O21C 469 TIMADR=W“*FAL$SGQ_TIMEO ; Address to receive time value 
0227 470 SCHECK_STATUS 3; Check status code 
0 - 471 $FAO_S=- ; Format the message 
022A are CTRSTR=W*FAL$GQ_LINKUP- ; Address of control string 
022A 47 OUTLEN=W*FALS$GW_PRTILENI-; Address of receive string length 
022A 474 OUTBUF=W*FAL$GQ_PRIBUF1-; Address of buffer to put string 
022A 475 P1=#F AL$GQ_TIMED ; Address of absolute date and time 
0243 476 $SCHECK_STATUS ; Check status code 
FDB7" 30 0246 477 BSBW FALSPRINT_FAO ; Print message 
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s¢ 
ig St locate space for two receive buffers and one double-length transmit buffer. 
> ihe receive buffers will be used alternately to obtain incoming DAP messages. 
; The transmit buffer will be usee for both building new DAP messages (BLD 

; descriptor) and for concatenating DAP ee together (XMT descriptor) 

; before sending them. The BLD area will overlay the XMT area and may overflow 
; into the second part of the transmit buffer area, thus a double-length buffer 
3; area will be allocated. 


Also, allocate RMS block 1/0 buffers for use during file transfer mode. 


ALLOCATE BUFFERS: 3; Allocate logical Link 1/0 buffers 
MOVZWL #FALSK_MAXBUFSIZ,R4 ; Get supported DAP buffer size 
MOVW R4, FALSW_QIOBUFSIZ(R8) Save supported buffer size for use 
ding Configuration message 


54  7FFF 8F 3C 
18 ; 
MOVW R4,FALS$W_DAPBUFSIZ(R8) ; Initialize DAP buffer size for use by 


AB 54 80 


1A AB 54 B0 
FALS$RCV_QIO (it will be revised after 
exchange of Configuration messages) 


Allocate spece for two receive buffers and one double-length transmit buffer 
based on the largest Q10 that FAL is opeperes to support. Then put size and 
address information about them in the FAL work area. Note that all buffers 
will start on a page boundary and that the transmit buffer is the size of two 
Q10 buffers to provide an overflow area potentially used while building a 
when there are concatenated messages already in the transmit buffer. 


PAA AAI UII SEEPS LLL LL SLES DP 
PRP AAAAOSAOAOOAOSAI VIM OOOOOWOOWOOWOOOoOWooO - 
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PVP IVIVIVIVIVIVIVIVIVIVIVIVIVIVIVSIUSULVSUSUSUSUSUSVSVS SUSU B= EE EE PPP PPP PLES 
FAN = DOONAN WIN OOD NAME WIN SO OD NAME WN OS OD NAME WO O@NOAOULS WOO 
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05 68 39 4 BBC #FALS$V_USE_DBS,(R8),10$ ; Branch to use calculated buffer size 
O0A0 (8 = 3¢ MOVZWL FALS$W_OSE_BBS(R8),R4  ; Override with user specified value 
54 QOOOO1FF 8F CO 10$: ADDL2 #511,R4 ; Compute # of pages required for 
4 7 8F 78 6 ASHL #-9 ,R4,RS : each buffer 
046 C5 68 MULLS #<FALSK_RCVBUFCNT+1+1>,-; Compute total # of pages required 
—. 2 6D 7 ; _for receive and transmit buffers 
013C 30 6F BSBW F ALSGETPAGE : Expand program region 
55 54 09 8 72 ASHL #9,R4,R ; Compute # bytes per buffer 
50. 02 dO 0276 MOVL #FALS$K_RCVBUFCNT,RO : Get number of receive buffers 
51 SCA DE 79 MOVAL FAL$L_RCVBUF(R8),R1 ; Get address of buffer address table 
81 5 dO 7D 20S: VL ag. TD 3; Store receive buffer address 
52 5 c 0 DDL2 R5,R : Compute next buffer address 
F7 50 «so#F SOBGTR ate $ ; Branch if more to do . 
48 AB D4 6 CLRL FAL$Q_XMT(R8) ; Initialize transmit buffer descriptor 
4C AB 52 00 4 MOVL R2,FACSQ_XMT+4(R8) ; Store transmit buffer address 
i) : 
D ; Allocate space for RMS multi-block buffer for use during file transfer mode 
4 3; to issue large block I/0 requests to the local RMS. 
D 
51 12 A8 QA D MOVZBL FALSB_RBK_CACHE(R8),R1 ; Get number of pages to allocate 
51 09 7 1 ASHL #9, RILRS ; Calculate # bytes in buffer 
0116 3 95 BSBW «FAL SGE TPAGE > Expand program region 
64 A 4 0D 98 MOVL R4,FALSQ_RMS(RB) ; Store RMS buffer size in descriptor 
68 A § D a MOVL R2,FALSQ_RMS+4(R8) ; Store RMS buffer addr in descriptor 
6C A D A MOVL R2,FALSL_RMS_PTR(RB) ; Initialize next byte pointer 
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: Post read requests to the mailbox and logical Link, then transfer control 
; to the state table manager. 


END_OF _SETUP: 


zz 
>m 


3; Continuation of mainline 


Issue a read with an AST for the associated mailbox so that FAL will be 
notified of a change in the status of the Link such as partner exited or 
of the receipt of an interrupt message. 


Note: Each time that a read completes, another read will be issued to keep 
one read request outstanding. 


BSBW FALSMBX_RCV_QI10 ; Issue mailbox read with AST 


Issue a read with an AST for the logical Link. 


Note: Each time that a read completes, another read will be issued to keep 
one read request outstanding. 


BSBW FALSRCV_QI10 ; Issue Link read with AST 


:; Transfer control to the state transiton table mananger. 


DVLVDVIVIVPV IV IVIVIVSUIV IVS SIVSVSVS VSS VS USUI VOSS VSI 
DDD DPA AAD. Sa B= Be BS EAI 
BDNAUE WN $$ O OONAUE WO ODNAUE WN OOONO 


MOVAB W ATE_TABLE ,R2 ; Get address of state transition table 
BSBW F E ; Give control to state table manager 
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p++ 
; Normal image exit to VMS. Transfer control here to unconditionally terminate 
; FAL in a graceful manner. 


FALSTERMINATE:: ; Control point - 
SSETBIT #FALSV_TERMINATE,(R8) ; Signal image termination in progress 


Write Link terminated message and statistics messages to the print file. 


4C 68 21 €1 BBC #FALSV_LOG_STA,(R8),10$ ; Branch if logging disabled 
48 68 00 €1 BBC #FALSV_CNF_MSG,(R8),10$ ; Branch if no messages received 
SGETTIM_S- ; Get current date and time 
TIMADR=W*FALSGQ_TIME1 ; Address to receive time value 
SCHECK_ STATUS 3; Check status code 
SGETJPIW_S- ; Get selected fob rocess information 
ITMLST=W*FALSGETJPI_LST1; Address of item List 
SCHECK_STATUS ; Check status code 
$FAO_S= ; Format the message 
CTRSTR=W*FAL$GQ_LINKDOWN-; Address of control string 
OUTLEN=W*FALSGW_PRILENI-; Address of receive string length 
OUTBUF=W*FALSGQ_PRIBUF1-; Address of buffer to put string 
P1=#F AL$GQ_TIMET ; Address of absolute date and time 
SCHECK_STATUS ; Check status code 
FCFD’ 30 BSBW FALSPRINT_FAO ; Print message 
FCFA’ 30 BSBW FALSSTATISTICS ; Compute and print statistics 
; Write internal counters to the print file. 
31 68 25 €1 10$: #FALSV_LOG_CNT,(R8),20$ ; Branch if internal counters not wanted 


BBC 
$FAO_S- ; Format the message 
CTRSTR=W*FALSGQ_INTCNTR-; Address of control string 
OUTLEN=W“F AL$SGW parE <: Address of receive string length 


Address of buffer to put string 


SOSSOOSOOOOOSOSOSCSOSSOSOSSDOOOCOOOCODOSCOOCODOOOCOOOOOOCOOOOOOOOO0CO 
AAAAAAN AI AAI IAIN AIA AIA AI AIA AI IAI AI GI PP POPINYPOPOPOPONINOPPOPONININONOPoPonoPnonononnrn ws 
IWNOOOOSCOCSCSCSCOCOOCOCOCOCOOCOMMMMMMMOOODDDDVIWDDODODDDMDMDMMMDW => 
DOOUNS SSP PPP P PP POPAAAAWOS FREE SOOO OMMPAAOAOOONTOROTUNONINN 

ROPPONGI BOO OOOO 00000000000 0000009000000 00009000909 J INNIS 

AINE WIN $9 ODA NE WIN $9 OD NAME WIN 9 OD NAUE WW 0 ODNOAU EWR CO OONAOUSWN—O 


PI=W*FALSGL_RECVWAIT= ; Receive Q10 wait count 
P2=W*FALSGL_WRITWAIT- ; RMS FIM WRITE wait count 
PS=W*FALSGL_COUNTERI- ; Miscellaneous counter 1 
P4=W*FALSGL_COUNTER2- ; Miscellaneous counter § 
P5=W*FALSGL_COUNTERS- ; Miscellaneous counter 
6=W*FALSGL_COUNTER4 ; Miscellaneous counter 4 
SCHECK_STATUS ; Check status code 
FCcS* 30 BSBW FALSPRINT_FAO ; Print message 
: 3; Write exit message to the print file. 
B 
04 Am = 95 35 208: TSTB FAL$B_LOGGING(R8) ; Branch if FAL logging is disabled 
29 =««13 BEQL IMAGE _EXIT : 
4 $FAO_S- ; Format the message ‘ 
4 CTRSTR=W*FALSGQ_EXIT- ; Address of control string 
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OUTLEN=W*FAL$GW_PRTLENI-; Address of receive string length 
OUTBUF=W*FALS$GQ_PRTBUF1=-; Address of buffer to put string 
Piz ; _Use current date and time 
SCHECK_STATUS ; Check status code 
FCAS' 30 BSBW FALSPRINT_FAO ; Print message 
: Close the print file. 
$CLOSE FAB=W*FALSPRTFAB ; Close the print file 
SCHECK_STATUS ; Check completion code 


ed 
3 Quick exit to VMS (or continuation of FALSTERMINATE). Transfer control here 
3 to abruptly terminate FAL. 


Note: {nage rundown will deassign all channels (which will break the logical 
Link with partner). 


IMAGE _EXIT: ; Control point 
SEXIT_S CODE=W*FALSGL_EXIT 3; Exit to VMS with status code specified 


WWAWW AW AAW WIN AA AANA oO 
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74 8651 -SBTTL FALSCHECK_SS = CHECK SYSTEM SERVICE STATUS CODE 
an fe i ~PSECT FALSCODE ~ NOSHR,EXE,RD,NOWRT BYTE 
74 é 4 34+ 
8 i 22? ; Functional Description: 
0374 g35 ; FALSCHECK_SS checks the status code in RO following a System Service 
0374 658 ; call, If failure is indicated after filtering out allowable error 
: S 023 ; conditions, the image is terminated with RO as the exit completion code. 
74 «661 ; Calling Sequence: 
th, 906 : 
74 «66663; BSBW FALSCHECK_SS 
0374 664 ; 
0374 665 ; Input Parameters: 
b3re See: RO System Service status cod 
3 stem Service status code 
0374 668 ; r / 
0374 669 ; Implicit Inputs: 
0374 670; 
0374 671; FAL$GL_EXIT 
0374 of6 ; 
0374 673 ; Output Parameters: 
0374 674; 
0374 675; None 
0374 676; 
0374 677 ; Implicit Outputs: 
0374 678; 
0374 679; FALSGL_EXIT 
0374 680 ; 
0374 681 ; Completion Codes: 
0374 ors ; 
0374 683; None 
0374 684; 
0374 685 ; Side Effects: 
0374 686 ; 
0374 687 ; If the System Service indicates failure after filtering out allowable 
0374 688 ; error conditions, the image is terminated with RO on input as the exit 
0374 689 ; completion code. 
0374 690; 
0374 691 ;-- 
0374 69 
0374 693 FALSCHECK_SS:: 3 Entry point 
01 50 Fe O378 694 BCBC RO,10$ 3; Was System Service successful? 
5 77 3=—695 RSB 3; Yes, exit 
378 696 3; No, terminate execution ... 
1D 0O08'CF E9 0378 697 10S: BLBC W*FALSGL_EXIT,30$ ; Branch if an error was previously 
37D 6698 3; detected to prevent possible loop 
2064 8F 50 B61 0370 344 CMPW RO,#SS$_LINKABORT ; Do not report these error codes as 
1313 382 0 BEaL = 208 ; the partner process tells FAL to 
20EC 8F Se Bi ; 4 701 CMPW RO, #SS$_LINKDISCON ; terminate by breaking the logical 
oc 13 89 7 BEQL 20$ ; Link (i.e., there is no DAP directive 
20F4 8F 50 a 70 CMPW RO, #SSS_LINKEXIT ; to tell FAL to terminate) 
95 3 704 BEaL = 208 3 ; 
0008 ' CF 8 9 9 705 MOVL RO,W*FALSGL_EXIT ; Store error code for use at image exit 
FFI 1 9 706 eps: BRW FALSTERMINATE ; Take graceful termination peth 
FFCC 31 O39A 707 308: BRW IMAGE _EXIT ; Take quick termination pat 
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v04-000 FALSCHECK_STATUS = CHECK STATUS CODE (NO ~$Fb 1 384 te 78 LPALSSRCIFALMAIN- MARS 1 . 
9D ©6709 ~SBTTL FALSCHECK_STATUS = CHECK STATUS CODE (NON-FATAL) 
0000 3p fig «PSECT FALSCODE NOSHR,EXE,RD,NOWRT ,SYTE 
9D ar p++ 
20 at ; Functional Description: 
1 coe at FALSCHECK_STATUS checks the status code in RO following an RMS or 
039D £18 : Syeten Service call. This routine should be used to check the status 
te cn é of a FAL Logging operation. Unlike FALSCHECK_SS, this routine does not 
0390 718; terminate FAL on detecting an error. Instead it disables FAL logging 
0390 719; and stores the status code for subsequent reporting when FAL terminates 
$398 720 ; normally. Thus, a FAL logging failure will not disrupt the remote file 
0390 : ; access operation in progress. 
0390 723: Calling Sequence: 
0390 724; 
039D feo 3 BSBW FALSCHECK_STATUS 
0390 726; 
039D 727 ; Input Parameters: 
0390 728; 
039D 18 : RO System Service status code or RMS completion code 
039D 730; R8 Address of FAL work area 
0390 731; 
039D 136 : Implicit Inputs: 
0390 733; 
039D 734 ; FAL$GL_EXIT 
0390 735; 
039D 736 ; Output Parameters: 
039D 737 ; 
0390 738; None 
0390 739; i 
0390 740 ; Implicit Outputs: 
0390 741; 
039D 742; FALSGL_EXIT 
0390 743; FAL$B_COGGING 
0390 744; 
0390 745 ; Completion Codes: 
Baap 746 ; 
0390 747 ; None 
0390 748; 
0390 749 ; Side Effects: 
039d 750; ee ; . 
0390 751; If the status code indicates failure, then FAL Logging is disabled and 
+44 P36 3 the failure code is saved for display on image exit. 
9D 754 ;-- 
90 6755 : 
9D £36 FALSCHECK_STATUS:: ; Entry point 
OD 50 8 90 75 BCBS 108 ; Was service call successful? 
04 AB 4 A 758 CLRB FAL$B_LOGGING(R8) ; No, disable further Logging output 
05 O0008'CF E9 Q3A3 759 BLBC = W*FALSGL_EX;”,10$ ; Store error code in RO for use at 
0008'cF 50 00 A&8 760 MOVL RO,W*FALSGL_<XIT ; image exit unless an error was 
8 AD 761 ; _previously detected 
05 AD 762 10$ RSB ; Exit 
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v04-000 FALSGETPAGE = EXPAND PROGARM REGION ~$6e 1382 Bhi 33 LRAL SRCIFALMAIN.MARS 1 . (16) 
AE 764 ~SBTTL FALSGETPAGE = EXPAND PROGARM REGION 
0000 Ac £0 «-PSECT FALSCODE NOSHR,EXE,RD,NOWRT ,BYTE 

AE 59 p++ 

n 789 ; Functional Description: 

AE 770: FALSGETPAGE expands the program region (P0) by the number of pages 
baat re ; specified. these are densnd sere pages. : — 
O3AE 773; Calling Sequence: 

O3AE 77% : sites 
BaAe 775 ; BSBW FALSGETPAGE 
AE 776; 
O3AE 777 ; Input Parameters: 
O3AE 778; 
O3AE 779 ; R1 # of pages to allocate 
Q3AE 780 ; No 
O3AE 781 ; Implicit Inputs: 
O3AE be 3 
O3AE 783; None 
O3AE 784 ; 
O3AE 785 ; Output Parameters: 
O3AE 786 ; 
Q3AE 787 ; RO-R1 Destroyed 
QO3AE 788 ; R Address of first byte allocated 
O3AE 789 ; R Address of last byte allocated 
O3AE 790 ; 
O3AE 791 ; Implicit Outputs: 
O3AE 38 3 
O3AE 793; None 
O3AE 794 ; 
O3AE 795 ; Completion Codes: 
O3AE 796; 
O3AE 797 ; None 
O3AE 798; 
O3AE 799 ; Side Effects: 
O3AE 800 ; : 
O3AE 801 ; The virtual address space of the image is expanded. 
O3AE 802 ; 
O3AE 03 3° 
8 AE 04 
AE BR2 FALSGETPAGE: : : Entry point 
7E 7C Q3AE 06 CLRQ -(SP) ; Form array to receive address bounds 
50 SE 00 3 rt MOVL SP,RO ; _and save its address 
B 08 SEXPREG_S- ; Expand program region 
Ha at8 PAGCNT=R1- ; # pages desired in PO space 
038 10 RETADR=(RO) ; Address to receive lo & hi addresses 
bare 811 $CHECK_SS ; Check status code and exit on failure 
= == 3° a1¢ MOVQ (SP)+,R2 ; Store first and last addresses 
05 C8 BI RSB : Exit 
03C9 = 814 
03¢9 815 -END FALSSTART ; Image transfer address 
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Symbol table ate 01:17:48 LPAL. SRCIFA ALMAIN.MAR; 1 “ Fe) | 
$$. TMP1 = 001 FAL$GQ_TIME1 etaeeeee P, 3 | 
$$. TMP2 = F FAL$GQ_WILDSPEC 0000004A R 1 
$$T1 = 0 F AL$GT_NODENAME eeeeenes 3 
$$T2 = 00 4 FALSGT_VERSIN 00000000 RG 01 
ALLOCATE BUFFERS 8 8 0249 R 08 FALSGW-PRTLEN1 aeeeeeee Xx 03 
ASSIGN. CRA 3 D3 R 8 FALSK_BFLT_RBK = 00000040 
COMPLETE LOGICAL LINK 0001D1 R 3 FALS$K_FALLOG = QOOOO0FF 
CREATE_PRIN E A R 03 FALSK_FILESPEC = 4 ta 
DAPS$B_DECVE 000004 F ALS$K_MAXBUF SIZ = QOOO7FFF 
DAPSB~E CONUM 00000045 FAL $K~MBXBUF = 00000040 | 
DAPSB_FILESYS 00000043 FALSK_MBXQUOTA = 00000080 
DAPSB_OSTYPE ek FALSK_PRTBUF = 00000100 | 
DAP$B_USRNUM 000004 F AL$K_RCVBUF CNT = 00000002 
DAP$B_USRVER 00000048 FALSK_SYSNET = QOOOOOFF 
DAPSB_VERNUM 00000044 FALSK_WRKBLN 00002000 
DAP$Q_SYSCAP 00000028 FALSK_XMTEF = 00000002 
DAPSW_BUFSIZ 00000040 FALSL_ALLXAB 00000C00 
END_OF SETUP 000002A4 R 03 FALSL_ oPL EAS IN 00000074 
FAB fn teeeeeee =X 03 FALSL_CHAIN 9000007 
FABSL_FNA eeeeeere § X 03 FALSL ~DATXAB. 00000320 
FAL$B_ACCFUNC 000001F6 FALSL_FAB 00000200 
FAL$B_ACCOPT 000001F5 FALSL_FAB2 00000800 | 
FALSB_DATATYPE 000001F4 FALSL_FHCXAB 000002F4 
FAL$B_DISABLE 00000006 FALSL_FOP 000001F8 
FAL NABLE 00000005 FALSL_KEYNAM 00001C00 
FAL$B_LOGGING 00000004 FALSL_KEYXAB 00001000 
FAL$B -RISCOPT 00000007 FALSL_KEYXABINI 00000078 
FAL$B_RAC 000001F7 FALSL_NAM 00000294 
FAL$B_RBK_CACHE 00000012 FALSL_NAM2 00000850 
FAL$B =RCVBUF IDK 00000011 FALS$L_NUMBER 000001FC 
FAL seat thy FALSL_PROXAB 0000034C¢ 
FAL (kos 00000374 RG 03 FALS$L_RAB 00000250 
FALSCHECK STATUS 0000039D RG 03 FALSL_RCVBUF 0000005C 
FAL$C_WRKBLN 00002000 FALSL_RDTXAB 00000380 
FALSGETJPI_LSTO eeeeeeee = X 03 FALSL_RMS_PTR 0000006C 
FALSGETJPI-LST1 teeeeeee = X 03 FAL$L_STB 000000C0 
F ALSGE TPAGE OOOOO3AE RG 03 FALSL_SUMXAB 000003A4 
FAL$GL_COUNTER1 teeeeree XY 03 FALSL_TEMP 000003F4 
FALSGL_COUNTER2 teeeeeee =X 03 FALSL_USE_SC1 000000A8 
FALS$GL_ COUNTERS aeeeeeee = X 03 FALS$L_USE-SC2 000000AC 
FAL =COUNTER4 eeeneeee = X 03 FALSL-USE-VER 000000A4 
FALSGL_EXIT 00000008 RG =ss«é01 FALSMBX_RCV_QI0 aeenenee =X 03 
FALSGL_RECVWAIT tereeeee xX 03 FALSPARSE_FALSLOG eeneeeee =X 03 
FALSGL_WRITWAIT teneeeee =X 03 FALSPRINT_FAO aeeeeeee =X eH 
FAL$GQ_ CALLER tereneee =X FALSPRTFAB eeneenee =X 
AL$GQ_EXIT eteeeeee §= H FALSPRTRAB eereeeee XK 03 
F AL$GQ_HEADER eeeeeeee xX 0 FAL$Q_BLD 0000 
FAL$GQ_INTCNTR teeeeeee = X 03 FAL$Q~ ~BIRNAME 00000088 
F AL$GQ_L INKDOWN eereereer KX 03 FAL$Q_F ALLOG Ft 
F AL$GQ_L INKUP aeeeenee = X 03 FAL$Q-FLG 00000 
F AL$GQ_LNKNAM 900000¢ C RG 4 F AL$Q"MBX 00000 
FALSGQ_LOGNAR 0000029 RG 1 FAL$Q_MBXIOSB 00000 
FAL$GQ_OUTPU 00000038 RG 4 FALSQ_ 000004 
FAL$GQ- ~PARSERR eeeeeeee =X ; FAL$Q-RCVIOSB 00 
F AL$GQ_PRTBUF 1 eeeeeere ALSO” 0 8 4 
F AL$GQ-SYSN 0000001A RG 1 FAL$Q~ =tate CTX 0 8 
FAL$GOQ"- TIMEO treeeree =X 3 FALS$Q"SYSNET 0009 


} 

FALMAIN - FAL MAINLINE 19-SEP-1986 1 45:58 ore: Macro V04-00 Page 21 | 
Symbol table =SEP=1984 01:17:1 FAL.SRCJFALMAIN.MAR; 1 (16) | 
FAL$Q_TEMP F SYSSGETTIM ame a | 
F AL$Q_VOLNAME 8 SYS$Q10W eeeeeeee GX 
FALSQ_XMT 4 SYSSTRNLOG aeeeeeee GX 3 
FAL$Q-XMTIOSB 000002 TRANSLATE_FAL$LOG 000008! R 03 
FALSRCV_QI10 eeeeeeee x Hy TRANSLATE FALSOUTPUT 0000058 R 03 
FALSSTART 00000000 RG 0 TRANS_SYSSNET QOOOOFC R 03 
FALSSTATE eeeeeeee =X 03 
FALSSTATE_TABLE eeeeenee = 03 
FALSSTATISTICS keeeeeee 
FALSTERMINATE 0000078 RG 03 
FALST_DAP 000001 
fF ALST_DIRNAME 9000 ER 
FAL$T_EXPAND 000005 
FALST_EXPAND2 sis ra 4 
FAL$T_FALLOG 0001C00 
FALST_FILESPE tet 
FALST_FILESPEC2 00000900 
FALST_KEYBUF 00000700 
FALST_MBXBUF 00001980 
FAL$T_PRTBUF 1 00001A00 
FALS$T_PRTBUF 2 00001800 
FAL$T_RESULT 00000600 
FAL$ST_RESULT2 00000800 
FALST_SYSNET 00001D00 
FALST_VOLNAME ss 9344 
FALSV_CNF_MSG = 00000000 
FALS$V_LOG_CNT = 00000025 
FAL$V_LOG_MSG = 00000022 
FALS$V_LOG STA = 00000021 
FALS$V_PARSE ERR = 00000038 
FALS$V_TERMINATE = 0000000C 
FALS$V_USE = 00000039 
F ALSW_DAPBUF S1Z Q000001A 
FALSW_DISPLAY 00000070 
FALSW_LNKCHN 0000001C 
FAL SW_MBXC 0000001E 
FALS$W_QIOBUFSIZ 00000018 
FALS$W~RECEIVED 00000072 
FAL$W_USE_DBS 000000A0 
FALSW_USE-SYS tg Pe 
IMAGE_EXIT 00000369 R 03 
1O$SM_ACCESS = 00000040 
10$_ACCESS = 00000032 
LIBSASN_WTH_MBX eeeeeeee xX 03 
SS$_IVLOGNAR = 00000154 
SS$_LINKABORT = 000020E4 
SS$_LINKDISCON = it OEC 
SSS_LINKEXIT = 000020F4 

“NORMAL = 00000001 
SS$-NOTRAN = 00000629 
SYSSCLOSE aeeeneee GX 03 
SYSSCONNECT teneeeee GX 0 
SYSSCREATE aeeranee GX 3 
SYSSEXIT eeeeeeee GX 3 
SYSSEXPREG keeeeeee GX ; 
SYSSFAO geereree x 
SYSSGETJPIW aeeereee GX 3 


FALMAIN 


13 
- FAL MAINLINE i 
Psect synopsis - 


EP=1984 01:45:5 AX/VMS Macro V04-00 Pa 2 | 
Epa 19be b1:17s48 EPALVSRCTPALMAIN. MARS 1 we F6) 


+ 
H Psect synopsis ! 


were secant eoeeceee} 


PSECT name Allocation PSECT No. Attributes 


» OS ss St ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

FALSDATA 000000 ( 87.) 01 ¢ 1.) NOPIC USR CON’ REL LCL SHR NOEXE RD WRT NOVEC LONG 

SABSS 4 et S44 ( one} b¢ ( 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

FALSCODE 000003C9 ( 969.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
bem amare ono w nwa naman ee 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 36 90:00:00 .06 00:00:01.58 

Command processing 128 00:00:00.36 Eb ee Tae 

Pass 1 366 5 ee SE 1 

Symbol table sort 0 00:00:01.2 00:00: 3°28 

ass 2 160 Op 288: Be OE 00:00:07.6 

Symbol table output 22 00:00:00.13 00:00:00.27 

Psect synopsis output 2 00:00:00.01 00:00:00.02 

Cross-reference output 0 00:00:00.00 00:00:00.00 

Assembler run totals 716 00:00:12.87 00:00:42.99 


The working set Limit was 1650 pages. P 

73909 bytes_(145 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1167 non-local and 24 local symbols. 
815 source Lines were read in Pass 1, producing 24 object records in Pass 

33 pages of virtual memory were used to define 30 macros. 


et 


; Macro Library statistics : 


Macro Library name Macros defined 
-$255$DUA28: CFAL.OBJJFAL.MLB; 1 6 
$255$DUA28: CSYSLIBIJSTARLET.MLB;2 21 
TOTALS (all Libraries) e7 


1413 GETS were required to define 27 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:F ALMAIN/OBJ=OBJ$:FALMAIN MSRC$:FALMAIN/UPDATE=(ENHS:F ALMAIN) +LIB$:FAL/LIB 
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